RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


ecccac ca 
ececacc ca 
ca ca ca 
ca ca ca 
ca ecaaac 
ca eaacac 
ca za 
ca ca 
@aeaeaencaancaacaeaaeacar 
@aancaeaaaaaacaacae 
oa 
ww wu 
wu ww 
z wu wu wu 
ww ww ww 
wus ww wu 
uw wu wu 
wus wu sus 
wu uw uu 


aaoaanaeaanaaa 
favovololololoroyrol=) 


DDDDDDDD 
DDDDDDDD 


A A Sd dd dd 
USD LAS LE Sd hd hd kd 


ZETITITIITIIITIIIT 


zrrrst zrrrrst 


HHHHHHHHH 
HHHHHHHHH 
LLLLLLLLLL 
LLLLLLLLLL 


HH 
HH 
HH 
HH 
HH 
HH 
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HEADER == handle headers (titles) for examples, 16-Sep-1984 99:56:00 
14-Sep-1984 06:4 RUNOFF .SRCJH 


ZTITLE ‘HEADER -- pandle  hesders, (titles) for examples, figures, tables.’ 


$ 1 001 

3 § O0¢ 

3 P 4 

3 4 004 
Pa 006 

; 7 ihe 1 

3 8 008 1 

3 9 009 1 I« 
; © 0010 1 !« 
3 13 Bey } :* 
3 Hil 
3 ig $018 1 Ie 
ae 0014 1 !« 
. 0015 1 !« 
: 16 Boig 1 te 
: 17 001 1 !® 
; 0018 1 !* 
3 19 0019 1 !* 
: 20 0020 1 !«* 
s 6 (lal 0021 1 !« 
; 2 boss 1 Ie 
; 2 Bas 1 te 
3 24 0024 1 !« 
; 2 0025 1 !* 
3; € 0026 1 !* 
Wey 0027 1 !« 
s 2 0028 1 !* 
; 9 ik 1 

; 0 0030 1 

3 1 0031 +1 

3 3 ie 1 44 
cH) Se 0033 1 

: Me 0034 1! 
3 5 0035 1! 
5 #8 0036 1! 
: 7 0037 1! 
> 0038 1! 
; 0039 1! 
; 40 0040 1! 
3 41 0041 1! 
s ée 0042 1 


MODULE header ( IDENT = 


XBLISS32 C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
; NONEXTERNAL = LONG-RELATIVESJ 
= 


BEGIN 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY yy eee WITH THE TERMS OF te at wee avd 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
panponet ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


E 
T 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 


ESSE E SSE CESSES TT TTT TTT TTT TP TTP rere ec eter iii titi tris ics titi titi i titi tf 
J 


FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


Handles headers (titles) for examples, figures, tables. 


ENVIRONMENT: Transportable 
AUTHOR: Keith A. Dawson CREATION DATE: 18-April-1982 


AX=-11 Bliss- 


VaR AREER ERR AREER EERE RETREAT RARER RARER ERAAREEERE ERE REE 


ea@eeneeeeneneeneeenennnenennne 


® 


Pr 


iii 


se 


° 
° 
° 
° 
° 
. 
° 
. 
° 
. 
e 
. 
° 
. 
° 
. 
* 
- 
° 
. 
° 
7 
° 
. 
° 
. 
° 
. 
* 
. 
° 
. 
° 
. 
* 
. 
° 
. 
° 
. 
e 
© 
. 
. 
° 
. 
° 
. 
° 
* 
, 
. 


as 
WE 


RAVAN IASI ES 
OOWDWNOUES WN O0OaNS 


61 


81 


oo ‘0 09 Co Co CO 
LESPLLLSSEASOLO 


NOUS Wt 


600 


- 
-~ 
— 


OOoooooooooooooo°o°ooo 
poleoleloleololololololeoloelololololololo) 
PRED AAANGIIII EB 

WN —OVOWONAYV SWAN —OVOOnNOu 


oO 
oO 
oa 


ek ee at et ed = — 4 = SS I = 2 = ss 2 8 ss SS SS Se 


016 


015 


014 


013 


012 


011 


010 


009 


008 


007 
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HEADER == handle headers (titles) for examples, 1b-3¢ -1984 00:44: AX-11 Bliss-32 V4.0-74 
Revision History “ 1 ~300n 138% 90 O6ie4 ER.BLI ¢ 
ZSBTTL ‘Revision History’ 
! MODIFIED BY: 


KFA00016 Ken Alden tins tag 
Added logic to prevent user from enabling a —— 
or appendix if already in the type of page numbering 


scheme. 
Added handling for disable appendix. 


KFA00015 Ken Alden 04-Aug-1983 

Because | replaced this module in CMS, this minor 
change makes it a new ident. Basically all I did 
was make the enable feature bump the page counters 
as actually doing a chapter/appendix would have done. 


KFA00014 Ken Alden 03-Aug-1983 

Added the .DIS/ENABLE CHAPTER functionality. 

REROOO13 Ron Randall 7-Jul-1983 

Fixed footnote outputting bug. 

REROOO12 Ron Randall 14-Jun-1983 

Added Logic to prevent HEADER from initiating a chapter 
or appendix until all pending footnotes are output. 
KFA00011 Ken Alden 99-Jun-1983 

Fixed .NO CHAPTER bug by adding a RETURN statement. 
KAD00010 Keith Dawson 18-May-1983 


Added support for FLIP Phase 1. Existing FLIP books were 
built using a DSRFLIP and BIND that have a 4-bit 
(STINY_INTEGER) field for TOCTXT_CODE. This field is too 
small for new DSRPLUS table-of-contents data types. FLIP 
Phase 2 support will have to use new, not-yet-defined fields 
for these data types. 


KFA00009 Ken Alden 3-May-1983 
Added the external calls for pagen and npagen. 
REM00008 Roy Marshall April-1983 
o allow chapters and appendices to be 


Made Sony changes 
controlled from the ECC data structures for DSR as they have 
been for some time now for DSRPLUS. This was done to decouple 
these two forms of output from each other. 


KFA00007 Ken Alden 28-Mar-1983 
Testpage amounts have now been refigured and when 
the user says "TP = 0° that is what they will get! 


REROO006 Ron Randall 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


HEADER == handle headers (titles) for examples, 
Module Level Declarations 


O38 XSBTTL "Module Level Declarations’ 
TABLE OF CONTENTS: 
FORWARD ROUTINE 


D 10 
tH IEROeHMHs Magee Waals Phdesdobt 7 


RUNOFF .SRC R.BLI; 


oo 
Ooo 


OOO 


; 1 

; 100 1 

3; 30) 1 

YS ¢ 100 1 

$ 40 101 1 

> 104 1 ¢ 1 header : NOVALUE, 'Generates calls to OUTHDR for headers 

s 105 1 1 ' (counters/captions) of header levels, 

: 106 104 1 ! examples, figures, and tables. 

3 4 } 5 : , set ece : NOVALUE; 'Sets values of some (common) OUTHDR formals. 

; 109 109 1 ! INCLUDE FILES: 

: 110 198 1! 

3; «W45 109 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 

; 1g B31 } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 

; «6114 u 0 g 1 ZIF DSRPLUS ZTHEN 

: 11$ U 0243 1 LIBRARY ‘'REQ:DPLLIB'; ! DSRPLUS BLISS Library 

; 116 0244 1 XELSE 

g Ti" 0245 1 we *REQ:DSRLIB'; ! DSR BLISS Library 

; ie 0246 1 2F1 

: 119 0247 1 

: 139 0248 1! 

s «Ven 0249 1 ! OWN STORAGE: 

: 1$¢ 0250 1! 

; ie 8 51 1 OWN 

> 124 2g 1 Lines_before, Lines_after, test_page_amount, 

s 125 02535 1 counter_major_type, counter_minor_type, 

; 126 0254 1 counter_value, counter_display_code, counter_spaces_after, 

3 is 0255 1 counter_pre_string_length, counter_pre_string_ptr, 

: 128 b¢36 1 counter_post_string_length, counter_post_string_ptr, 

; +4 0257 1 caption_major_type, caption_minor_type caption_case, 

: 130 0258 1 caption_is_centered, caption_is_flus right, caption_is_run_in, 

s 33 0259 1 caztion_is_bold, caption_is_underlined, put_intO_mem_file, 

3 133 0260 1 autosubtitTle, brn_open, reak_before_caption, 

; 0261 1 Lines_between, new_page, startodd, 

3: «(134 $¢ 1 tocpage; 

; 1a 263 1! 

_ 264 1 ! EXTERNAL REFERENCES: 

s Yor 0265 1! 

; «138 0266 1 EXTERNAL LITERAL 

: 13 8 67 1 rnfinm; 

: 140 68 1 

; (141 0269 1 EXTERNAL 

3 166 70 #1 ecc : Sece blockye tor, 

; (14 71 «#1 fnct : fnct_definition, 

3 (144 1 ca : gca_detinition, 

: «145 73 «1 ct : hct_definition, 

; 146 7% «1 lc : hlc_definition, 

3 6147 + 2 hllist : counted List, 

3: 148 0 6 1 ra : fixed_string, 

3; «149 a o- numprm : numprm_define, 

; 150 78 1 

s 151 U 0279 1 ZIF dsrplus ZTHEN 

3 136 U +} 1 npagen : page_definition, 

>. 33 U os pagen : page_definition, 

7 «154 3 1 2FI 

; 155 1 | 
| 
| 
| 


Be Pe Se Oe Se Oe Se Se Se Ge Se Se Se Se Se Se Se Be Se Se Se SHS Se Se Ge Se Se Se Be Se Se Se FH Se Se Se Se Se Se Se ae se Se ee Fe Se Se eee Fe Ge Se Se Se seas 
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HEADER HEADER == handle head (titles) f » 16-Sep- 244: AX-11 iss- «0-74 
et f andle headers (titles) for examples 16 Sep 138¢ 90:36:00 X-1 at Ht, HA ae Page ‘ 


oa 


Module Level Declarations -Sep-1984 RUNOFF .SRCJH (3 
4 dt : ref pdt_definition, 
5 cca : sea_definition: 
5 EXTERNAL ROUTINE 
erma 
0 
91 botpag, 


RIF DSRPLUS %THEN 


uttpg, 
tF I é : 


skpsep; 


cc 
Oooo 


Be Ge Se Se Se Ge Ge Se Se Se Se Se Se ee ees 
a kk kk a ts 
woowowownowowvon 


SSSEISEALEAR IS SOS 


oo 
OONOULS wr 


1 
1 
1 
1 
3 1 
1 outcha, 
: outhdr, 
1 
1 
1 
1 
1 
1 
1 
1 
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HEADER HEADER == handle headers (titles) for examples, 16-Sep-1984 00:44: AX-11 Bliss-32 V4.0-74 
VOe00 HEADER == set up est to OUTHDR to generate (nu 12286871383 99:56:29 RUNOFF «SRC HEADER .BLI ; 


ZSBITL "HEADER -= set call to OUTHDR to generate (number and) header’ 
GLOBAL ROUTINE header (handler) : NOVALUE = 


'e4¢ 

} FUNCTIONAL DESCRIPTION: 
i HEADER sets up the formal arguments to call OUTHDR and generate a 

; header (in the output and/or binary file) for .HEADER <any> commands, 
where <any> is LEVEL, EXAMPLE, FIGURE, or TABLE. 

FORMAL PARAMETERS: 

} handler = Defines which sort of header is to be generated. 

; IMPLICIT INPUTS: None 

{ IMPLICIT OUTPUTS: None 

' 
' 
' 
! 
i] 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


SOooooeoccoo: 


WANA NW 


i SIDE EFFECTS: None 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
! Preset those OUTHDR formals that are common, 


MIPIM) 2 2 2 2 OO 


AAW 0 ODN UE WIN 9 OONO UE WN OOD NAMES WN O OONOU EWR SOO ODNOUNS 


or that are not yet implemented. 


ree iy mal Sa = maj_runoff; 

caption_major type = ma)_runoff; 

ut_into_mem_Tile = true; ! NYI!!**DEBUG*®! ! 
rn_open = .gca_btc; 


SELECT .handler OF 
SET 


WESRASLS SSLESEAV LS SEVERE ASASISSVSARS 


WWIWAWIANIAIIPoror 


ooo 


Ch_header_level, h_set_level] : 


A. AANA AIA AAI 


Fk ek tk ak ake th bob ahead 


Process the numoer given as a parameter on the .HL or 
BEGIN 
i .SET LEVEL command 


IF .mum_sign NEQ 0 
THEN | 


Process a relative header level. 


eLsenumavatue = .hllist Ccel_index] + .num_value 


IF .mum_length EQL 0 
THEN | 


SOOOOOOOSOOCOOOOOOSOCCOOSOOCSCOOOSCOOCOOOOO 


PIPDPPIM IP IPIPINDPININIPIPIAIMIPINPIPINININIPININ INN ININ II) tt st tk kk i kk i i a 


Be Se Se Se Be Ge Se Ge Ge Se Ge Se Ge Se Ge Se Ge Se Se Be Se Ge Se Ge Se Ge Se Se Se Se Fe Be Se Ge Se Se Se Gs Se Se Se Se Se Se SH Se Se Os Oe Ss BH Se Se Se Se Sees 


DONO VE WN —OOONOUS WO 0 


PONMOPONOMONONONONON 2 3 oe 


DUP & 


i Continue on at same level. 


10 | 
== handle headers (titles) for examples, 18-5e -1984 00:44:0 AX-11 Bliss-32 V4.0-74 Pp 
-- set up call to OUTHDR to generate (nu 1 ~Sep-19 4 Poi oeiet RUNOFF .SRCJHEADER.BLI; “ag ca | 
J 
n 


<= 
> 

(a4 
3° 
== 
mn 
>> 
ovo 
mn 
po +] 


um value = .hllist Ccl_index]; 

! 

Validate resultant header Level. 

iF (.mum_value LEQ 0) OR 

sen nner GTR .hllist Ccol_max_index]) 
' 


Illegal header number. 


BEGIN 
erma (rnfinm, false); 
Stay at current Level. 


Pr rT ee TE TE TLTETEILILILILIeITe eee eee eee eee Ie IeIeTelerererererererereererererireriereeei 
SSIS Nose 
Wwnr— 3a Wms 
SSLESFENLSS 
Oc MEW —o 
PKK FWANINIIWNIGRPINPININININIPIPININI WWAA AA AWNIAIIPIPIPIPININI AE BEF HB PAA WII 


num_value = .hllist Ccl_index); 
END; 


PLL 
NOUS WN OOM MPwn— 
OOCQCCOCCOOOCOOOOCOOOOoOOo 


END; 
Ch_header_ level] : 


OOWONOUE WN OCONOUE Wi O0Oan~ 


: Bump counter at specified level. 


BEGIN 
hl list C.num_value] = .hllist C.num_value] + 1; 


Zero all higher numbered counters. 
iNCR I FROM (-num_yalue + 1) TO .hllist Col_max_index] DO 
hllist C.1] = 0; 


AAPA 


END; 
Ch_header_level, h_set_level] : 
: Set desired level. 


NO 


OOOOOO OOODDOWOOMWOMDODo NNN 


BDNAUESWN —OOONOuS wr 


hllist Col_index] = .num_value; 
Ch_set_level] : RETURN; 
Ch_header_level] : 
sia 
style_block = ecc Chcoll_offset + .hllist Ccl_index), 0,0,0,0) 
: Secc_Block; 
counter_minor_type = min_hl_inf; 
caption_minor type = 
-styTe_block Cecc$v_unnumbered] 


min_hl_txt_u 
LSE 


H 10 
HEADER == handle headers (titles) for examples, 19~300- 138% 90:46:00 AX-11 Ot ieee V4.0-74 Page 7 
HEADER == set up call to OUTHDR to generate (nu 14-Sep-1984 13:06: RUNOFF ..SRCJHEADER.BLI; (4) 
min hl txt); 


set_ecc (.handler, style_block); 
END; 


i 
eS 
‘co 
2 


ere 
ed ad ad 


ZIF DSRPLUS %THEN 
h_header_exampl) : 
BEGIN 


D 
style_block = ecc Cexamp_offset, 0,0,0,0] : Secc_block; 


; i : 
; 291 
; 38 U 04 
; U 04 
> 294 U 0421 
ot 
; 29 U 0424 
; 298 U 0425 counter minor type = min_examp_inf; 
; 299 U 04 § captton_minor type = 
; 300 U 04 (IF~ .styTe_block Cecc$v_unnumbered] 
; 301 U 04 8 THEN 
; 4 U 04 min _examp_txt_u 
; U 0430 ELS 
3; 304 U 0431 min_examp_txt); 
3; 202 U 04 ¢ 
$ be y Be ? pot occ (,handler, style_block); 
; 308 U 0435 ‘ 
3 207 U 04 $ Ch_header_figure] : 
3 «6310 U 04 BEGIN 
s 6B U 04 3 IND 
3 \¢ : e884 style_block = ecc Cfigur_offset, 0,0,0,0] : Secc_block; 
; 314 U bees counter_minor_type = min_figur_inf; 
; 315 U rr caption_minor type = 
; 316 U 044 -styTe_block Cecc$v_unnumbered] 
; 17 U Bete 
3 38 U 0445 min_figur_txt_u 
; 319 U Rese 
3 $9 U 044 min_figur_txt); 
3 1 U Bese 
3 $§ 7 ret pot .cce (,handler, style _block); 
; 324 U 043) ’ 
; 5 U $36 Ch_header_table] : 
; 6 U 045 BEGIN 
: 7 U 0454 IND 
; : ¥ $3? style_block = ecc Ctable_offset, 0,0,0,0] : Secc_block; 
; 0 U 43 counter_minor_type = min_table_inf; 
3 1 U 04 3 caption_minor type = 
; § y $23 -SstyTe_block Cecc$v_unnumbered] 
: U 0461 min_table_txt_u 

: 5 U re 

3 : ret min_table_txt); 

: 3 Y 465 pot .ecc (,handler, style_block); 

BT bn 

: $5 469 Ch chapters : 

; 34 470 BEGIN 


CL —————————————————— —-ss/ssssssssssessssseeeeeees ——E = 


10 
ER == handle headers (titles) for examples, 1b-Sep-19 4 90:46:00 AX-11 Bliss-32 eS a be 
ER == sex up call to OUTHDR to generate (nu 14-Sep-1984 15:06:4 RUNOFF .SRCJHEADER.BLI; 


BIND 
style block = ecc Cchap_offset, 0,0,0,0] : Secc_block; 


counter_minor_type = min_chapt_inf; 
caption_minor type = 
| aS Lock Cecc$v_unnumbered) 
min_chapt_txt_u 
ELS 
min_chapt_txt); 
is needed for FLIP Phase 1 support. 


(.gca_op_dev EQL op_dev_flip) 


MFA —OOONOUS Ww OC 


SPRL PPP PEPPER OT 


caption_minor_type = min_chapt; 


set_ecc (.handler, style_block); 
END; 


ZIF sou . ty ZTHEN 
nae chapter. h_disable_chapt, h_disable_appen] : 


false; ! Turn off chapter oriented-ness. 
; ' Normal page numbers 
0; ! Normal page numbers 


oO 
= 
Oo 


gca_chapt 
npagen Esct_typ] 
pagen ([sct_typJ 
IF 
THE 
ZIF FLIP XTHEN ey ‘tints ; 
u agen, _tocpag); 
XELSE puttpg ‘pag p pag 


2FI 


rx 
oo 
woo 


-gca_btc 
N 


puttpg (pagen, -1); 


OOoCoooooocoooo 
PAU 


RETURN; 
END; 
Ch.enable_append3 : 
J gegen Csct_typ] EQL sct_append ! Already in an Appendix 


RETURN; 
gca_chapt = true; ! Turn off chapter oriented-ness. 
npagen [sct_typ] = sct_append; ! Normal page numbers 
pagen (sct_typ] =_sct_append; ! Norma page numbers 
ct_number] = vecc Cappend offset,ecc$h_counter) + 1; 
npagen psct_nuaber) =".ecc Lappend_offset.ecc$h_counter)] + 1; 
a_btc 


RIF FLIP ZTHEN 
ZELSE 


A RE A ye tee at Le 
NOUS WO OONOUS WOW 
cccc 
oo Oo 
oP a? at ae 
OOWDWDOWDOWOOOONIVVNNNNNS OP 
—O0D0Oono 
PRIPDPIPIPIPOPOPPIPIPIPOPDPINPPIPIPIPINIPIPYPIPIPIPIPINIDIPIPIPIPIPIPIPI WWI NNW B&B PIII 
--3e ree 
~ _ 
oo "2 
» % 
wn" 
cr 
——S 
vu 
w 
Fad 
“+0 
xo 
——ma 
xz "Ze 
m 
2 


ecccccccccccccccccccceccececcecceccccecccceccce 


PUPP SUPT TTI 


SOOOOOOOOOOOOOOSoSoO: 


puttpg (pagen, flip$k_tocpag); 


IF] 


el A 
nw 


10 
== handle headers (titles) for examples, 16-Sep-1984 00:44:0 AX-11 Bliss-32 V4.0-74 Page 9 
== set up call to OUTHDR to generate (nu 14-Sep- :06: UNOFF ..SRCJHEADER.BLI; 

Lt OUTHDR (nu 1 1984 06:4 R F j E 


utt (pagen, -1); 
uF] puttpg ‘pag 


RETURN; 
END; 
Ch_enable_chapte] : 
BEGIN 
{gg Peeen Csct_typ] EQL sct_chapt ! Already in a Chapter 
RETURN; 


cccccccccccccccccecccccccccecé 


HEAD 

HEAD 
8 : 
; 209 236 ; 
zi : 
: tig 2 § gca_chapt = true; ! iurn off chapter oriented-ness. : 
; 41 40 npagen Lsct_typ] = sct_chapt; ! Normal page numbers F 
; 414 4 pagen Lsct_typJ = choy ! Normal page numbers : 
> 415 4 pagen ct_number] = .ecc phep.of feet ecces counter] + 1; : 
: 416 5 npagen (sct_number] = .ecc Cchap_offset,ecc$h_counter] + 1; ; 
3; 417 544 -gca_btc : 
HP ge | 
Beg |W bedlnchome my en one : 
: u agen, _tocpag); : 
3 u agen, -1); ; 
; 434 0581 2 ari saan oe 
: 426 o388 RETURN; ; 
: 427 0554 END; $ 
; : : 3322 XF I : 
; rk paeo ohopoendtxs : : 
oe iy : 
; 438 Bee9 style_block = ecc Cappend_offset, 0,0,0,0] : Secc_block; 3 
; rH 0369 counter_minor_type = min_append_inf; ; 
; 4 bee caption_minor type = : 
3 rt te: : »StyTe_block Cecc$v_unnumbered) : 
; 439 0966 4 ‘“ min_append_txt_u ; 
: red i min_append_txt); : 
: rk 570 ! # This code is needed for FLIP Phase 1 support. 
3 «444 U B27) RIF FLIP XTHEN 
5 ret : 276 ahd EQL op_dev_flip) 
> 46 U 0574 caption_minor_type = min_append; 
: 448 575 xFI 
: 086 Te bes 
: 451 378 set_ecc (.handler, style_block); 
3 +36 Ts END; 
> 454 381 TES; 
eo ORR EC 
3 439 584 ! Skip any spaces, tabs, or commas in the input. 


- roo 
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HEADER HEADER == handle headers (titles) for examples, 16-Sep-1984 00:44:0 AX-11 Bliss-32 V4.0-76 Page 10 
V50-000 HEADER == set up call to OUTHDR to generate (nu 13280071 38e era RUNOFF ..SRCJHEADER.BLI; . (4) 
; 4 5 : : 
: 43 ‘i skpsep (ira); : 
; 461 IF_ (handler EQL h chapter) OR (.handler EQL h dix) 3 
>; 46 5 THEN — : gigas : 
i pes : 
3 rt 236 Loop over all remaining footnotes. : 
: 46 0594 WHILE .fnct_count GTR 0 DO : 
: re 0396 ? BEGIN 
3 470 597 4 Get rid of as many footnotes as possible. 
: rtf 339 : foobot Q; 
> 474 0601 4 i Finish the bottom of the page except for last one, 
; $22 B98 ? } which is taken care of by OUTCHA. 
: 477 0604 4 iF _.fnct_count GTR 0 
He BR Mago 
i eS posse 
: 48 0609 i Because not all footnotes were output, we have to 
3 ret Beto start a new page, and keep trying. 
: 485 061 toppag (); 
486 Oe18 ENDS 
: 487 0614 4 
: rey: 9 END; 
: 490 061? outcha ( 
; 4491 0618 -lines_before, -lines_after, .test_page_amount, 
; (49 0619 -counter_major_type, -counter_minor_type, 
3; 49 0620 -counter_value, -counter_display_code, .counter_spaces_after, 
3 494 6853 -counter_pre_string_length -counter_pre_string_ptr, 
: «495 06 ¢ -counter_post_string_ Length, -counter_post_string_ptr, 
> 496 06 -Caption_major_type, -caption_minor_type -caption_case, 
; 497 0624 -caption_is_centered, .caption_is_flus right,.caption-is_run in, 
3 £38 0625 -caption_is_bold, -caption_is_underlined,.put_into_mem_file, 
7 4 0626 -autosubtitTe, -brn_open, -bréak_before_caption, 
; 500 0627 .lines_between, -new_page, -Startodd, 
: 28) 08 3 , tocpege 
: 808 630 END 
; 504 631 ELSE 
; 505 O36 BEGIN 
; 06 outhdr ( 
; 50 0634 -lines_before, -lines_after, -test_page_amount, 
3 208 635 -counteér_major_type, -countér_minor_type, 
: 509 -counter_value, -counter_display_code, .counter_spaces_after, 
3 310 -counter_pre_string_length -counter_pre String_ptr, 
s STi 638 -counter_post_str ng_length, -counter_post_string ptr. 
: 4 9 -caption_major_type, -caption_minor_type -capt On_gase. 
s 6ST 640 -caption_is_centered, .caption_is_flus right..cap ion_is_run_in, 
; «514 641 -caption_is_bold, -caption_is_underlined, .put_into_mem_file, 


10 
HEADER HEADER == handle headers (titles) for examples, 16- -1984 00:44: AX-11 Bliss-32 V4.0-74 1 
Vbe~000 HEADER == set up call to OUTHDR to generate (nu 1 300-1382 99:68:09 RUNOFF . SRC HEADER “BL 124 ited (A) 


-TITLE HEADER HEADER -- handle headers (titles) for ex 
SIDENT \v04-0000" "> 

-PSECT SOWNS,NOEXE,2 
00000 LINES_BEF ORE: 
00004 LINES_AFTER: 

.BLKB 4 
00008 TEST _PAGE AMOUNT : 
0000C COUNTER_MAJOR_TYPE: 
00010 COUNTER MINOR. TYPE: 


.BLK 
00014 COUNTER_VALUE : 


4 


; 515 4 -autosubtitle, -brn_open, -break_before_caption, : 
; 16 4 -Lines_between, -New_page, -Startodd, : 
a 8 jena : 
; 51 4 END; 3 
Bo MG. | 
; § es ; Post-processing after the header has been generated. 
; 4 651 SELECT .handler OF ; 
: ‘ 6 § SET : 
; 4 Ch_header_level) : ; 
: 598 655 ~"BEGIN’ 
3 2 $37 Turn fill on if AUTOJUST, else leave it the way it was. ; 
3 532 0659 sca_fill = (.gca_autojust OR .sca_fill); 3 
i 334 661 ' Turn justify on if AUTOJUST, else Leave it the way it was. : 
: 2 oees sca_justify = (.gca_autojust OR -sca_justify); F 
; 3 664 sca_crock = .gca_autojust; 3 
i 339 eee . 
; 540 U 0667 2 XIF DSRPLUS XTHEN 3 
; 541 U 0668 h_header_exampl] : 0; : 
5 265 U 0669 h_header_figure] : 0; 3 
3; «54 U pero h_header_table] : 0; 3 
> 544 U 0671 h_no_chapter] : 0; 3 
ERR gm 2 
3 547 0674 R.appendty : 0; ; 
; 548 0675 h_chapter] : 0; 3 
3; 549 B676 : 
: 33h oe78 3 = 
; 552 0679 1 END; ! End of HEADER 3 


v04~600 


HEADER == handle headers (t 


itles 
HEADER == set up call to OUTHDR 


) for examples, 16 
to generate (nu 1 


00018 
0001C 
00020 
00024 
00028 
0002C 
00030 
00034 
00038 
0003¢ 
00040 
00044 
00048 
0004C 
00050 
00054 
06058 
0005C 
00060 
00064 
00068 
0006C 


AX-11 Bliss-32 V4.0-74 


“320-198 98:66:81 Fale Sas SneaneR ocr, 


-BLKB 
COUNTER_DISPLAY_CODE: 

”.BLKB 
COUNTER_SPACES_AFTER: 
COUNTER PRE STRING_LENGTH: 
COUNTER_PRE STRING_PTR: 
COUNTER_POST STRING_LENGTH: 
COUNTER_POST STRING_PTR: 
CAPTION MAJOR TYPE: 
CAPTION_AINOR_ TYPE: 
CAPTION_CASE: 

LKB 4 
CAPTION_IS CENTERED: 
CAPTION_IS FLUSH RIGHT: 
CAPTION_IS RUN. IN: 
CAPTION_IS BOLD: 

CAPTION_IS UNDERLINED: 
PUT_INTO_MEM FILE: 
AUTOSUBTITLE: 
BRN_OPEN: : 
BREAK BEFORE CAPTION: 
LINES BETWEEN: ‘ 
NEW_PAGE: P 
STARTODD: 
-BLKB 4 
TOCPAGE: .BLKB 4 
RN 
GCA 


nanos 


LKB 


.EXTRN FINK ECC, FNCT 
SEXTRN H¢T, HLC, HLLIST 
SEXTRN IRA, NUMBRA POT 
SEXTRN SCA, ERMA OUTCHA 

“EXTRN OUTHDR, BOTPAG. FOOBOT 
SEXTRN TOPPAG, SKPSEP 


-PSECT SCODES,NOWRT,2 
-ENTRY 
MOVAB 


FNCT 
MOVAB SCA+{104, RB 


HEADER, Save R2,R3,R4,R5,R6,R7,R8,R9 


Page 12 
. (4) 


0301 


HEADER == handle header 
HEADER == set up call t 


F 
2 
4 


A3 00000000G_ EF 


Ou1or hr Puuvnvivms OW 


FM WAIANAE Os 


co 
nm 


_ 
o 
= 


oa 
> 


ao 
o 
SOOOCCOCOCOCOSOGOGOOSOOCSGOOOGOOCOSOCOSOSOOSOOSOOCOOCOOCOOCOOOOOOOOOOOOOOOOCOOOOoSO Ce 


SOOSSCSOOCOSCOOCSOOCOSOSOSOOOSOSOSOOOOSOSOSOOOSOOSCOOSCOOOOOSOOSOOOOOSOOOOOOOOOCOOCOSO sw 
MmMmMmMMMoOoOOCVIVPMOOoOWWwWIOr>r FP OOOO@D 


COOOCGCOCOCOOOSOOOOCOGOOOOCOSOOCCOSOSOSOSOOOOOOOOCOOCOCSCOOOCOOOOCOCOOOOOOOOOOOOOOoSOo -8 


E 
E 
E 
4 
e 
A 
0 
6 
0 
A 
0 
6 
6 
0 
5 
1 
? 
8 
0 
6 
P) 
1 
6 
4 
A 
0 
4 
5 
5 
0 
P) 
0 
6 
5 
0 
5 
1 
2 
6 
4 
5 
0 


RIMRIO—PIWANIWE FN = POUVININ ON "OWE OUMNH BM MOP NE W118 & NUT FN OPINION OPN TT 

NO OCS -9OMIe 90-0 9 9 oO 7090-90090 -9 9 7090090 0-90 9 9 |] | 9 | 9 “FO OMIIOSo 

DO RNOO O02 LW FN ON) SW I* WE MOC ON ODS FU" NOON OWI "i" O MOOCOMMmMmmrmn 

PFO ODUM DONO OOP MO SN FS OWN MS FB NVM BD HMO SRL SMO OVNHLWU MIO LSS O7NW NWO VITNAIO 
o ono 


3:99 AX-11 ag 
RUNOFF .S 


» #184 
NUMPRM+8 
HLLIST+4, NUMPRM+4 
NUMPRM+12 
3$ 


HLLIST+4, NUMPRM+4 
NUMPRM+4, RO 


4$ 
RO, HLLIST 
5$ 


=(SP) 
#RNE INM 


#2, ERMA 
HLLISTs4, NUMPRM+4 
NUMPRM+4, RO 
HLLIST+4EROJ 
HLLIST, 

HLLIST+4(1) 

Ri, I, 6$ 

R2, #97 

9$ 

R2 #184 

NUMPRM+4, HLLIST+4 
R2, #184 

11$ 

i #97 

, HLLIST+4, 


NTER PE as PE 
7108 


<< ee 
~n 


moO 


SF 


ROJ, 12$ 


N_MINOR_TYPE 


Bist 


HEADER. 


j 


AX=-11 Bliss-32 V4.0-74 
UNOFF.SRC 


t 


3 
» COUNTER _MINOR_TYPE 


-3 
“cc 


es) for example 
R to generate ( 


(titl 
OUTHD 


aders 
Ll to 


HEADER == handle he 


HEADER == set up ca 


o 
fo) 


vee 


0586 


0588 


oo 
~ 
w 
o 


; 0594 


15$ 
18$ 


OCK, 
_MINOR_TYPE 
OCK, 


#1 
STYLE_BL 
, RO 
» RO 
CAPTION 
COUNTER_MINOR_TYPE 
STYLE_BL 
» RO 
0, RO 
» CAPTION MINOR_TYPE 
BLOCK 


me me 
“f= PW WVA -OM *« zea. 
tt eth Leet a 4 ed ed ee ee 
CBee ROVE VNUVRuvVz aww su@M0Aw 


§ 
6 
§ 


#19 


A 


3 
1 
2 
1 
& 
1 
0 
: 
’ 
a4 
198 
44 
STYLE 


C--BRBRee Broowoeceaw 


14$: 
20$: 


OOFC 
0120 
000000006 


0D 
01 


00000000G_ EF 
00000000G_ EF 
00000000G_ EF 
00000000G_ EF 


-(SP) 
p) 


LENGTH, (SP) 
ENGTH 
€, (S$ 


-(SP) 
RIGHT 
TRING 
TRING C 
PLAY_cob 
INOR TYPE, -(SP) 
paged 


-(SP) 
TWEEN, -(SP) 
=-(SP) 
6 
Ket 
AOR. 
RES 
1S 


aadoktw 


RTODD 
NES _BE 
OP 
T 
CAPTION 
CAPTION 


228: 


et OO OTP Oe TPO OCONEE ICT OTP- OOWOTUOC DOT OOrmooanrne Soo. vow 
Ren be ee O00 NINN CUPP ST ST TAT TNL OO OR-P-P-P- OCD oo 


DWODODODOOWOOD DO 
WATT MMINRK KO we 


0588 


my 
4 
oO 
oO 


00000000G_ EF 


ll Nd Re Bed ted ed ed eh ed ed eh nh nd ee ee ee oe oo oe oe ee ee | 


= (SP) 


STARTODD 
LINES BE 
BRN_OP 
PUT 

CAPT 


238: 


ana 


SOOOOOOOOS OSVOOSOCSOSOSOSSOOSOSOSOSSSSOSOSOSOOSOSOSSOSSOSSSOOOOOGOOOOOSO 
—NO-— O- 00 &. OD NOK OM OO &. ODL OK MK UMM ONWMNOAO-— GOSOCOnBOOoOooOaoeoasSaaoaa 
O- OWA O00 Ou O- OWA OOP OU Ou On On Orb Om hE RRR RRR RL RK. 


NWO CIO OO OCICS IPI CIN TF OOOO OUI. BD DOD 0 III CS ELIE 
NH KO OMFNUMOWM H— KOK OM NOMOWOMOUN O- OOu COwdt dd ddd detec toOdee Mecca 


momDoamOcd 
marry 


sss 


11 
HEADER HEADER == handle headers (titles) for examples, 1b-5¢ -1984 44:0 AX-11 Bliss-32 V4.0-74 Page 15 
VOe500 HEADER == set up call to OUTHDR to generate (nu 1 ~Sep-19 4 Por oeiey RUNOFF .SRCJHEADER.BLI; . (4) 
7E A3 7D O01C MOVQ § CAPTION_IS_FLUSH_RIGHT, -(SP) : 064 
fe A3 7D 001C MOVQ CAPTION“CASE, -(SP) + 063 
E A3 7D 001C¢ MOva CAPT LON-MAJO TYPE, =(SP) : 
7E 1 A370 001CD MOVO § COUNTER“POST_STRING LENGTH, =(SP) 3 0638 
7E 1 A3 7D 00101 MOVQ COUNTER-PRE_STRING CENGTH, =(SP) 3 0637 
7E 08 A3 7D 00105 MOVO § COUNTER“DISPLAY CODE, -(SP) : 063 
7E 63 7D 00109 MOVQ §§ COUNTER“MINOR TYPE, -(SP) 3 063 
7E F8 =A 7D 106 MOVO TEST_PAGE_AMOONT, -(SP) + 0634 
7E FO AS 70 OO1E MOV LINES BEFORE, -(SP) : 
000000006 EF 1C FB OO1E4 CALLS #28, QUTHOR : 
00000061 F 3 D4 He 24$: CPL R , + 0654 
50 000000006 FF D St MOVL aGCA+16, RO : 0659 
00 88 50 C8 OO1FB BISL2 RO, aSCA+104 : 
FC «BB 50 CB OOTFF BISL2 RO, aSCA+10 3 0663 
08 B88 50 0 00203 MOVL RO, aSCA+11 + 0664 
04 00207 25$: : 0679 


; Routine Size: 520 bytes, Routine Base: S$CODE$ + 0000 


; 335 0680 1 


o 


COOoonN NNN 
WN" SO OONOUS wn 


A ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab Ab Ab Ab Al 
SELFSSLESLESESESL 


PIII BE ERI III III at st tn hh hd 


Be Se Se Se Se Ge Se Ge Be Ge Be Se Ge Se Se Se Se Ge Ge Se Ge Fe Se Ge Se Se Se Se Se Ge Se Ge Se FH Se Se Se Oe Ss Se Be es Se OH Se SH Se Se Se Ge Se Ge Ge Oe ee Seas 


NOU EWN 9 OO NAME WIN O OD NOAUE WN" OOONOUS WN —O 


WWIWAIIAI AAI AIPIPIPSPSNPINMONPNYNINY 


== handle headers (titles) for examples, 16- 
=- set up OUTHDR formals from the Be 4- 


" 
Sep-1984 244: AX-11 Bliss-32 V 
ee Res ee oe i 


ZSBITL "SET_ECC == set up OUTHDR formals from the ECC area’ 
ROUTINE set_ecc (handler, style_block) : NOVALUE = 


+4 
; FUNCTIONAL DESCRIPTION: 


SET_ECC sets the values of the formal parameters in a call to OUTHDR: 
the ones that are stored in the ECC (Entity Counter/Caption) area. 


FORMAL PARAMETERS: 


handler - Indicates what command is being processed. 


style_block = The address of that segment of the ECC blockvector 
that will be used to update the OUTHDR formals. 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: 


The following module-level OWN variables, used as OUTHDR formals, 
are updated: 


Lines_before, Lines_after, test_page_amount, 
counter_major_type, counter_minor_type, 

counter_value, counter_display_code, counter_spaces_after, 
counter_pre_string_length, counter_pre_string_ptr, 
counter_post_string_length, counter_post_string_ptr, 
caption_major_type, caption_minor_type caption_case, 
caption_is_centered, caption_is_flus right, caption_is_run_in, 
caption_is_bold, caption_is_underlined, put_into_mem_file 
autosubtitTe, brn_open, reak_before_caption, 
Lines_between, new_page, startodd, 

tocpage 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


sb = .style_block : $ecc_block; 


' 
Increment the entity counter. 


ki CoceSh counter) = .sb Cecc$h_counter] + 1; 
efore = 
| aS Cecc$h_before] GTR 0) AND (NOT .sca_sect_empty) 


(MAX (1, .sb Cecc$h_before] - (.sca_spacing - 1))) 
ELSE 0); 


Lines_between = .sb Cecc$h_between]; 
lines_after = 


al 
_ 


S= 
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HEADER HEADER == handle headers (titles) for examples, 18-5¢ -1984 00:44: AX-11 Bliss-32 V4.0-74 Page 17 If 
°600 SET_ECC == set up OUTHDR formals from the Pee al ~Sep-19 4 99558389 RUNOFF SREIHEADER OL 1 24 . (3 Vv 
; 61 7 (1F_ .sb Cecc$h_after] GTR 0 
: £8 i i H Ke 
> 614 740 4 (MAX (1, .sb Cecc$h_after] - (.sca_spacing - 1))) 
; ot? Si ELSE 0); 
3 g19 tg IF_ (.handler EQL h_chapter) OR (.handler EQL h_appendix) | 
H 918 744 THEN 
; 61 745 pe Sin 
; 620 reg Lines_before = .sb eccBh.betored: 
; 621 74 Lines_after = .sb Lecc$h_after]; 
; 6 § be END; 
g 4 536 test t b $h ] 
3 est_page_amoun = .sb Cecc$h_testpage); 
; 625 751 counter ve lus = .sb ece$hocounters; 
; 626 7 ¢ counter_display_code = .sb scesh ei eptay 00063: 
; 627 7 counter_spaces_after = .sb Lecc$h_spacesJ; 
; 628 754 counter_pre_string_length = .sb ecc$h_pre_lend; 
; 629 0755 counter_pre_string_ptr = .sb Lecc$a_pre_ptrJ; 
; 630 0796 counter_post_string_length = .sb ecc$h_post_lend; 
; 631 75 counter_post_string_ptr = .sb Lecc$a_post_ptrJ; 
3 O36 0758 caption_case = 
: 6 0759 (CASE .sb Cecc$h_case) 
; ogc 159 FROM eccSk_leavecase TO ecc$k_allcap OF 
; 636 87 e8 ecc$k_leavecase] : leave_case; 
3 6o7 76 ecc$k_firstcap) : first_caps; 
; 638 0764 ecc$k_allcapJ : force_upper; 
; 639 0765 ); 
; 640 B7 66 
; «641 076 caption_is_centered = (.sb peccsh.position eql ecc$k_center); 
3 ong 0768 caption_is_flush_right = (.sb Cecc$h_position] eql ecc$k_right); 
; 64 0769 break_before_caption = .sblecc$v_break); 
> 644 0770 tocpage = .sb Cecc$v_tocpage); 
; 645 0771 startodd = .sb Cecc$vstartodd); 
3 0 bes new_page = .sb Lecc$v_pagel; 
; 64 077 caption_is_run_in = .sb Cecc$h-runini; 
; 648 0774 caption_is_bol = .sb Cecc$v_bold]; 
3 649 O77 caption is_underlined = .sb Cecc$v-underline); 
; 650 776 autosubfitTe = 
; 651 gre (IF_ handler EQL h_header_level 
3 $36 778 THEN 
; 65 0779 4 (.gca_autosubt GEQ .hilist Ccl_index] AND .hct_subtitle) 
; 654 0780 ELSE 
; tH Or FALSE); 
; 657 7 { 1 END; ! End of SET_ECC 


003¢ 00 SET_ECC:.WORD Save R2.R3 R4,R5 > 0682 
5 900000 G EF 9€ 90 OVAB SCA+124. R5 : 
4 00000000' EF i 00 MOVAB LINES_BEFORE, R4 : 

0 0 *¢ D Bate MOVL STYLE Bore Re 3; 0724 

51 oc a0 20 1 EE 014 EXTV #e4, B32, 18(R0), R1 + 0729 
51 D6 OOOIA INCL R : 


1,BLiss=32 v4.0-742 
Ff .SSCJHEADER.BLI; 


X-1 
(RUNOFF 


HEADER == handle headers (titles) for exam 
SET_ECC == set up OUTHDR formals from the 3 
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COMMAND QUALIFIERS 


6-5ep-1984 


HEADER HEADER == handle headers (titles) for examples, AX-11 Bliss-32 V4.0-74 
yO. e600 SET_ECC == set up OUTHDR formals from the et Ca ~30071 382 99: $6; 99 RUNOFF .SRC JHEADER.BLI; 
6 AG 6 1 4 F 4 XTZ7V «#4, #1, (CR TOCPAGE 
5 AG e9 a p Ff EA E2V #6, 1. (RO) STARTODD 
64 «AG 6 1 gf 9 EXTZV #5, #1, (RO), NEW_PAGE 
44 AG 02 Ad 98 000F CVTBL 2(RO), CAPTION_IS-RUN_IN 
ae Na 4 0 § EF of Buty At a. (RO) TAPTLON 1$- ~BNDERLINED 
00000061 = 8F 04 AC p 1 CMPL =—~ HANDLER, . 
1D 10F BNEQ 15$ 
50 D 1 } CLAL RO 
00000000G EF 00000000G FF D1 0011 CMPL SECS, HLLIST+4 
9¢ 19 0011 BLSS 14$ 
bg 1 INCL RO 
2} 00000000G FF D 1 14$: Tite ect ages R1 
0 1 4 1 BICL R1, R 
1 0012C BRB 16$ 
D4 4 f 15$: CLRL RO 
54 AG dO 1 16$: MOVL RO, AUTOSUBTITLE 
04 001 RET 
; Routine Size: 309 bytes, Routine Base: SCODE$ + 0208 
: 658 0784 1 
; 659 0785 1 END ! End of module 
: 660 0786 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 112 NOVEC, WRT, ROD ,NOEXE,NOSHR, LCL, REL, bathe od Gag b oth f 
; SCODES 829 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
: eeeececce Symbo ls eceeccece Pages Processing 
: File Total Loaded Percent Mapped Time 
 _$255$DUA28: :ESYSL IBIXPORT 32:1 590 0 0 252 00:00.2 
> 7$255$DUA28: CRUNOFF .SRCJDSRL1IB.L32;1 1248 84 é 86 00:00. 


0777 
0783 


H 11 
HEADER weno == nondle headers (titles) for examples, 16-Sep-1984 90:44: AX-11 Bliss-32 V4.0-74 Pa 0 
reat SET_ECC == set up OUTHDR formals from the Bee a 16- Hatt 7 99:56:89 RUNOFF ..SRCJHEADER.BLI; - (85 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIM]ZE)/LIS=LIS$:HEADER/OBJ=OBJ$:HEADER MSRC$:HEADER/UPDATE=(ENH$: HEADER) 


Size: 829 code + 112 data bytes 
Run Time: 8 : 73 
Fy epeed Time: :32. 
Lines/CPU Min: 1 

Ney A te 1651 

penety Used: 148 pages 

Compilation Complete 
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